110 This item has been selected as the Insert command. Do you want to continue and remove it as the Insert command?
111 This item has been selected as the Update command. Do you want to continue and remove it as the Update command?
112 This item has been selected as the Delete command. Do you want to continue and remove it as the Delete command?
113 'The combobox control click events
114 'The Fire events for the foreign keys
115 Yes
116 No
120 '******************* Private Sub cmdFKButton_Click ********************
121 Please select a Source field.
122 Please select a Lookup command.
123 Please select the lookup field(s) for the Lookup command.
124 Please select the display field for the Lookup command.
125 This lookup field has already been defined in the list.
126 There are no items to remove.
140 '******************* Private Function CreateSelectListBoxItemSub **************
141 ' Purpose: Selects a item from a listbox object based on the lItemDataKey parameter
142 '
143 ' Inputs: The type of control, a listbox or a combobox control, to populate with the lItemDataKey parameter results
144 ' lItemDataKey - The Key value for the Item object to select in the listbox or combobox control
145 ' Function: Sets the control's listindex provided from the lItemDataKey parameter
146 ' Exit the subroutine if this control is not a listbox or combobox control
147 ' Count the items in the listbox
148 ' Loop through the items of the listbox and set the ListIndex property if the lItemDataKey value is found
149 ' If the lItemDataKey value is not found set the ListIndex property to select no items in the listbox
155 '******************* Private Function CreateDC_PrepareSQLParamFunction *******************
156 ' Author: Microsoft Data Object Wizard
157 '
158 ' Description: Optionally adds quotes or substitutes 'null' for
159 ' parameter values
160 Error adding quotes or substituting 'null' parameter values.
170 '******************* Function GenerateClass *****************
171 Please enter a name for your Class object.
172 It doesn't appear that you have selected a Command object to build your Class object on. Please try again.
173 You have not completed the appropriate steps in the wizard. Please try again.
174 This is not a valid name for your Class object.
175 The Class Module ' 222 ' already exists!\n\nWARNING: If you replace the Class Module,\nthen any modifications you've made to them will be lost!\n\nDo you want to replace the ' 222 ' Class Module?
176 You must map all Source fields to Lookup fields.
181 Replace Existing Class Module?
185 '******************* Function GenerateUserControl *****************
186 It doesn't appear that you have selected a Class object to build your User Control object on. Please try again.
187 The User Control ' 111 ' already exists\n\n WARNING: If you replace the User Control, then any modifications you've make to it will be lost!\nAnd if the User Control has been placed on a VB Form in your project, then the User Control\nwill be removed from that VB Form.\n\nDo you want to replace the User Control ' 111 '?
188 This is not a valid name for your User Control object.
705 'The Data Environment object contains all the data access commands.
706 'Create a new RecordSet class to hold the Foreign Key attributes,\n' unless there are no Foreign Key attributes, then the Data Environment RecordSet class will be used.
707 'Variant to store system generated Primary Key values.
708 'Set the flag when record sets have been initialized.
709 'This event is run when the RecordSet Move method is complete.
710 'This event is run when the RecordSet Delete method is complete.
711 'This event is run when the rsUpdate method is complete.
712 'This event is run for certain class errors.
713 'Select Parameter properties for the RecordSet class.
714 'Foreign Key Parameter properties for the RecordSet classes.
715 'The external interface Get and Let properties.
716 'The RecordSet Beginnig Of File status.
717 'The RecordSet EndOfFile status.
718 'The RecordSet AbsolutePosition property.
719 'The Foreign Key Descriptor properties.
720 ' A new field is added to the created RecordSet class after setting corresponding Foreign Key fields.
730 Foreign Key Descriptor columns are added to this RecordSet class and
731 updated with the Foreign Key Data Environment commands mapped to the Select Foreign Key values.
732 'Choose the RecordSet class based on the DataMember parameter.
733 'Skip initialization if RecordSet class already exists.
734 'Disconnect the RecordSet class to allow (1) stored procedure access
735 ' and (2) control over database update timing.
736 'Data object has been initiallized.
737 'If there are no Foreign Key attributes, then just use a copy of the Data Environment RecordSet class.
738 'Execute the Foreign Key command.
739 'If there are no Foreign Keys records, exit with a ClassError event.
740 'Set the Public property to expose the Foreign Key RecordSet class.
741 'Disconnect the Foreign Key RecordSet class from the DataSource class.
742 'Instantiate the new RecordSet class.
743 'Set the CursorType property of the RecordSet class.
744 'Set the LockType property of the RecordSet class.
745 'Loop through each field in the Select command,\n 'adding the field to the created RecordSet class.\n 'If the field is the last field in an Foreign Key command,\n 'then add the Foreign Key Descriptor field.
749 'Is the Select field the last one in an Foreign Key command?
750 'Add the Foreign Key Descriptor field to the RecordSet class.
751 'Add the Select field to the RecordSet class.
752 'Set the Precision property to the same as in the original RecordSet class.
753 'Set the NumericScale property to the same as in the original RecordSet class.
754 'Open the newly created RecordSet class.
755 'Move to the first record in the RecordSet class.
756 'Loop through each record in the RecordSet class.\n 'If the Select field is a Foreign Key Descriptor field, look up it's value\n 'in the Foreign Key command Descriptor field, then update the\n 'Select Foreign Key Descriptor field with that value.
760 'Is the field a Foreign Key Descriptor field?
761 'Loop through the Foreign Key RecordSet class until the Select value is found.
762 'If the Select Foreign Key values equal the Foreign Key command Primary Key values, update the Foreign Key Descriptor field.
763 'Load the vValue Array element with the Foreign Key Descriptor value.
764 'Move to the next record with a Foreign Key attribute.
765 'If the value is null, then set the Foreign Key Descriptor Array element value to '(None).
766 'Set the Array element equal to the value in the Select field.
767 'To add a record to a RecordSet class two arrays of variants are required,\n '(1) an array of field names and (2) an array of corresponding values.
768 'ReDimension the array to hold system generated Primary Key values.
769 'Add the record to the created RecordSet class.
770 'Move to the next record in the Select RecordSet class.
771 'Move to the first record in the created RecordSet class.
772 'Update all the RecordSet class row status to 'unmodified'.
773 'Set the Data object to return the Select RecordSet class to the calling procedure.
774 'Set the Data object to return the Foreign Key RecordSet class to the calling procedure.
775 (None)
777 (a RecordSet class)
778 Contains RecordSet class used as a DataSource class \n 'for a UserControl object.
780 A new RecordSet class is created from the main 'Select' RecordSet class. \n 'This RecordSet class is not connected to the database to allow for\n '(1) separate stored procedures for updates, inserts and deletes\n 'and (2) control of update timing.
781 'Enumeration for SaveMode property.
782 Creates and allows selection of RecordSet classes.
783 A new RecordSet is created from the 'Select' RecordSet class.
784 'Save the record when changing to a new row in the ResultSet class.
785 'Save the record only when running the Update method.
786 'Specifies either the Immediate or Batch mode Save property for the ResultSet class.
787 'Flag to prohibit running the WillChangeRecord event.
788 'Flag to prohibit running the WillChangeRecord event when RecordSet class moves after the Delete method runs.
789 'Boolean flag is set when GetDataMember event is complete.
850 '******************* Private Function CreateDC_DeleteRecordSub *******
851 ' Description: Temporary ADO direct delete method,\n 'Provide workaround until the Data Environment object supports null parameter values
853 The following parameters in your Delete command do not map to a field in your Select command:
854 You will need to modify the Class object that was created.
855 An error has occured during the deletion of data.
856 'Update the current record status to 'unmodified'.
857 'Workaround for Kagera provider
858 ' We will use the ADO object temporarily until Data Environment object supports parameters and null values
859 You cannot delete this field. This field contains the Primary Key attribute(s) and cannot be Null.
860 This subroutine deletes a single record.
870 '******************* Private Function CreateDC_Class_Initialize() *********
871 'Reset the Initialization variable.
873 Standard Class object Initialize event.
880 '******************* Private Function CreateDC_TerminateSub ************
881 'Close the Data Environment connection
882 'Release the Data Environment and RecordSet objects
884 Closes Data Environment connections and uninitializes objects
890 '******************* Private Function CreateDC_RSMoveComplete **********
891 'Exit the subroutine if the BeginningOfFile property is true
892 'Exit the subroutine if the EndOfFile Property is true
893 'Raise the rsMoveComplete event
895 Standard RecordSet MoveComplete event.
900 '******************* Private Function CreateDC_MoveToPK **************
901 'Move to the first record in the RecordSet class
903 Sets the current RecordSet row with Primary Key values
925 '******************* Private Function CreateDC_ValidateData *****************
926 'Verify the field is not null.
927 'Verify the integer field contains a valid value.
928 'Verify the decimal field contains a valid value.
929 'Verify the date field contains a valid date.
930 'Verify the text field contains text.
931 The field ' 333 ' cannot be null.
933 This Function validates the RecordSet class data.
935 current row.
940 '******************* Private Function CreateDC_PutDataSub ************
941 'Check for valid data.
942 'Raise the ClassError event to detect invalid data.
943 'Set the parameter values for the command to be executed.
944 'Execute the command.
945 The field ' 333 ' does not contain a valid number.
946 The field ' 333 ' does not contain a valid numeric value.
947 The field ' 333 ' does not contain a valid date.
948 The field ' 333 ' does not contain valid text.
949 Data Validation error.
950 '******************* Public Function CreateUserControl *****************
951 'Several flags
952 'Create parameter properties for the Select RecordSet class
953 'Use the Data Object Wizard RecordSet class as a DataSource class
954 'Set the ManualInitialize property to false to automatically initialize or true to manually inititalize the UserControl object
955 'This event returns the Pimary Key values
956 'ReDimension the array to hold system generated Primary Key values.
957 'Save the adImmediate property when the user moves off the row.
960 'This event returns the Primary Key values
961 'Set this value to True to load ' 444 ' as the first item in the list
963 'The current datagrid control column
964 'Create the datagrid control column constants
966 'Create the Foreign Key Parameter properties for the RecordSet classes
969 'Create the Select parameter properties for the RecordSet class
972 'Use the BindingCollection class for the text fields
975 ListBox (The ListBox UserControl object)
976 ListBox UserControl object using a Data Object Wizard RecordSet class as a DataSource class.
977 (The ListBox UserControl object)
979 DataGrid (The DataGrid UserControl object)
980 DataGrid UserControl object using a Data Object Wizard RecordSet class as a DataSource class.
981 Single Record (The SingleRecordUserControl object)
982 SingleRecordUserControl object using a Data Object Wizard RecordSet class as a DataSource class.
983 'Set to true if DataSource error occurs.
984 'Prohibits several operations the first time the datagrid control loads.
985 'Prohibits showing the listbox control as the datagrid control loads for the first time.
986 'Allows the datagrid control to be editable and displays the listbox control on columns with the Foreign Key attributes.
987 'True if an error occurred in the DataSource class.
988 'The RecordSet Move event
989 'Format the object for the datagrid control Boolean columns
990 '******************* Private Function CreateCB_InitSub ****************
991 'Use the Data Object Wizard RecordSet class as the DataSource class for the combobox control
992 'Set the RecordSet class Select parameter properties to the UserControl object values
993 'Set the source of data for the combobox control
994 'Put ' 444 ' as the first item in the list
996 Cannot initialize the ComboBox control.
997 'Load the combobox control
998 'To change the Descriptor field, uncomment another field
999 Data input Error.
1001 Initializes the combobox control.
1025 '******************* Private Function CreateLB_InitSub ****************
1026 'Use the Data Object Wizard RecordSet class as the DataSource for the listbox control
1027 'Set the RecordSet class Select parameter properties to the UserControl object values
1028 'Set the source of data for the listbox control
1029 'Load the listbox control
1030 'To change the Descriptor field, uncomment another field
1031 Cannot initialize the listbox control.
1032 Initializes the listbox control.
1033 '******************* Public Function CreateUserControl Cont. *****************
1034 'Set this value to true on initial load.
1035 'This value is true if error occurred in DataSource class.
1036 'Set this value to true to run the UserControl object Update method
1037 'RecordSet Move event
1038 'Add Format object for CheckBox controls
1039 'Format object for textbox controls
1040 'Format variables for textbox controls
1041 'DataSource for Foreign Key RecordSets classes
1042 'The Event class to run events for RepeatingUserControl objects
1043 'The Event object reference for Repeating UserControl objects
1044 'The Foreign Key RecordSet classes
1045 'The Foreign Key RecordSet class initialization Boolean flags
1046 'Reset the DataSource class.
1048 'Resize the listbox control to the UserControl object.
1049 'Select the first record in the listbox control.
1050 '******************* Private Function CreateSR_GetSurKey ***************
1051 ' Loop through each record in the Foreign Key RecordSet class until we find the actual Foreign Key values
1052 'If the Surrogate Key (AbsolutePosition) value is not found, set the function to the first Recordset item
1054 Moves the RecordSet class to the AbsolutePosition value of the Foreign Key parameters.
1056 SingleRecordRepeatedUserControl object using a Data Object Wizard RecordSet class as a DataSource class.
1058 Lookup Field(s)
1059 Lookup Command
1060 Source Field
1061 Display Field
1062 'If the Foreign Key RecordSet field value(s) equal the Select Foreign Key field values, then get the Surrogate Key (AbsolutePosition) value.
1063 'Get the Surrogate Key (AbsolutePosition) value.
1075 '******************* Private Function CreateSR_FillCombo ***************
1076 'Clear the floating combobox control
1077 'Move to the first record of the RecordSet class
1078 'If the foreign key relationship allows nulls, then put '(None)' as\n 'the first combobox Item.
1080 'Load the combobox control from the RecordSet class
1082 Fills the Foreign Key combobox controls
1083 Fills the Foreign Key as hidden in the combobox control
1100 '******************* Private Function CreateSR_Init ****************
1101 'Use the Data Object Wizard RecordSet class as the DataSource class for the datagrid control
1102 Cannot initialize DataSource.
1103 Initializes UserControl object
1104 'This value is set to true during intialization.
1105 'This value is set to false to Initialize.
1106 'If DataSource class was not passed as a parameter, create a new instance of the DataSource class.
1107 'If DataSource class was passed, use that DataSource class.
1108 'Use the BindingCollection class to bind the textbox controls to the DataSource class.
1109 'If there is a DataSource error, exit the function.
1110 'Create the Format object for the checkbox controls.
1111 'Create the Format object for the textbox controls.
1112 'Fill the Foreign Key combobox control.
1113 'Bind the textbox control to the DataSource class.
1114 'Bind the CheckBox control to the DataSource class.
1115 'Reset the flag to false.
1116 'Set the combobox controls to the correct Foreign Key values.
1117 'Set the flag to true.
1208 '******************* Private Function CreateDG_InitSub *****************
1209 'Use the Data Object Wizard RecordSet class as the DataSource class for the datagrid control
1210 'Set the RecordSet class Select parameter properties to the UserControl object values
1211 'Set the RecordSet class Foreign Key parameter properties to the UserControl object values
1212 'Set the source of data for the datagrid control
1213 Cannot initialize grid control.
1214 'Allow new records and deletes for the datagrid control
1215 'Hide columns not used in control
1216 'Column Headings for the datagrid control
1217 'Save the current column of the datagrid control
1218 'Set the Flag to false
1219 Initializes the datagrid control.
1220 'Set flags to true on load.
1221 'Create Format object for the datagrid control Boolean columns
1222 'Reset the DataSource class.
1223 'If the DataSource class was not passed as a parameter, create the DataSource class.
1224 'Use the DataSource class passed as a parameter.
1225 '******************* Private Function CreateDG_FillCombo *******************
1226 'If Foreign Key Identifier field is nullable then put '(None)' as the first record in listbox control
1227 'Set the listbox control to the Foreign Key value.
1228 'If the listbox control is outside of the datagrid control, don't show the datagrid control.
1229 'Turn on the datagrid control cell buttons on the Foreign Key Descriptor columns
1250 '******************* Private Function CreateDG_ShowFloatingControl *****************
1251 'Move and show the listbox control
1253 Locates and unhides the Foreign Key listbox control.
1254 'Set the listbox control to the clicked datagrid control column
1275 '******************* Private Function CreateDG_Grid_RowColChange ****************************
1276 'Exit the procudure if the GridEditable property is set to false
1277 'Save the datagrid controls current cell position
1278 'Show the floating listbox control based on the datagrid controls column property
1280 Detects and runs functions when the user clicks on the Foreign Key columns of the datagrid control.
1290 '******************* Private Function CreateDG_Grid_Scroll ****************
1291 'Hide the listbox control
1293 Standard DataGrid control Scroll event.
1294 Standard DataGrid control ButtonClick event code.
1295 Standard DataGrid control RowColChange event code.
1300 '******************* Private Function CreateDG_Grid_BeforeDelete ****************
1301 Delete current record?
1325 '******************* Private Function CreateCB_ReadProperties *****************
1326 Input
1350 '******************* Private Function CreateDC_rsUpdate ********************
1352 Updates Foreign Key Descriptors and raises rsUpdate event
1360 '******************* Private Function CreateDC_UpdateFKDescriptors **************
1362 Updates Foreign Key Descriptor field.
1375 '******************* Private Function CreateDC_RSMoves ****************
1377 Move to next record.
1379 Move to first record.
1381 Move to previous record.
1383 Move to last record.
1384 Move the RecordSet n number of Rows.
1400 '******************* Private Function CreateDC_AddRecord ****************
1402 Adds a blank record to the RecordSet class.
1425 '******************* Private Function CreateCB_ComboBoxClick ***********
1428 Standard combobox control Click Event.
1450 '******************* Private Function CreateCB_WriteProperties ******************
1452 Standard UserControl object WriteProperties Event.
1453 'Set ManualInitialize to False to autoinitialize.
1454 'Set the NoneFirst parameter to load the '(None)' value for null Foreign Key values.
1455 'Write the Select parameter value.
1475 '******************* Private Function CreateCB_ReadProperties *************
1477 Standard UserControl object ReadProperties Event.
1478 'Set ManualInitialize = False to autoinitialize.
1479 'Set NoneFirst parameter to create the '(None)' value as the first item in the listbox control.
1480 'Read the Select parameter value.
1481 'If no errors during the reading of the parameters and the user is in the Visual Basic run mode state, run the DataSource class initialize method.
1500 '******************* Private Function CreateLB_ListBoxClick ***************
1502 Standard listbox control click event.
1503 'Raise the listbox control Click event with the Primary Key field values.
1525 '******************* Private Function CreateLB_ReadProperties ****************
1527 Standard UserControl object ReadProperties event.
1528 'Set the NoneFirst value to create the '(None)' value as the first item in the listbox control.
1529 'If no errors during the reading of the parameters and the user is in the Visual Basic run mode state, run the DataSource class initialize method.
1550 '******************* Private Function CreateLB_WriteProperties **************
1552 Standard UserControl object WriteProperties event.
1575 '******************* Private Function CreateSR_WriteProperties **************
1577 'The ManualInitialize property is set to the false value to initialize automatically.
1578 'Write the Foreign Key parameter value.
1579 'Write the SaveMove property value.
1600 '******************* Private Function CreateSR_ReadProperties *****************
1602 'Set the ManualInitial property to the false value to initialize automatically.
1603 'Set the Select parameter value.
1604 'Set the Foreign Key parameter value.
1605 'If no errors during the reading of the parameters and the user is in the Visual Basic run mode state, run the DataSource class initialize method.
1606 'Read the SaveMode property value.
1625 '******************* Private Function CreateDG_WriteProperties ***************
1627 Standard UserControl object WriteProperties event.
1628 'Set the ManualInitialize property to false to initialize the datagrid control automatically.
1629 'Set the GridEditable property to true to allow editing the datagrid control and activate the Foreign Key listbox controls.
1630 'Write the Select command parameter value.
1631 'Write the Foreign Key command parameter value.
1640 '******************* Private Function CreateSR_SaveAll *****************
1641 This subroutine runs the Class control UpdateBatch method.
1650 '******************* Private Function CreateSR_SaveRecord ******************
1651 This subroutine runs the Class object Update method.
1652 'Trigger the update if the user does not move off the row.
1700 '******************* Private Function CreateDG_ClassError **************
1701 This subroutine performs the Sink action on the ClassError event.
1725 '******************* Private Function CreateSR_Moves **************
1726 Move the SingleRecord control to the first record of RecordSet class.
1727 Move the SingleRecord control to the previous record of RecordSet class.
1728 Move the SingleRecord control to the next record of the RecordSet class.
1729 Move the SingleRecord control to the last record of the RecordSet class.
1750 '******************* Private Function CreateSR_PutDataUpdate *****************
1752 This function will update the DataSource class.
1775 '******************* Private Function CreateSR_UpdateFKSubs *****************
1776 Sets the Foreign Key properties based on the Surrogate Key value in the class.
1778 'Loop through the Foreign Key RecordSet class until the correct Surrogate Key value(the AbsolutePosition property) is found.
1779 'Set the Select Foreign Key field value to the Foreign Key RecordSet field value.
1800 '******************* Private Function CreateSR_SetFKCombos *****************
1802 This function sets the ListIndex property of the combobox control to the Surrogate Key value of the Foreign Key attribute.
1803 'Set the combobox control to the correct value.
1804 'Set the combobox control to the first item if Foreign Key value is null.
1805 'Set the combobox control to the correct item for the Foreign Key value.
1825 '******************* Private Function CreateSR_UserControlTerminate ***************
1827 Standard UserControl object Terminate event
1840 '******************* Private Function CreateSR_RsMoveComplete *************
1842 Sink the RecordSet class rsMoveComplete event
1843 'Update the Foreign Key combobox control.
1875 '******************* Private Function CreateDG_UpdateFKSubs **************
1878 'Set the actual Foreign Key value to null
1900 '******************* Private Function CreateDG_SaveRecord ***************
1902 Standard lstEdit control click event.
1950 '******************* Private Function CreateLB_Resize ***************
1951 'Resize the listbox control to the UserControl object when we are in the Visual Basic Design Time mode.
1952 Standard UserControl object Resize event.
2000 '******************* Private Function CreateCB_Resize ***************
2001 'Resize the combobox control to the UserControl object when we are in the Visual Basic Design Time mode.
2100 '******************* Private Function CreateDG_ColResize ***************
2101 'If the listbox control does not extend past the datagrid control, then resize the listbox control to the column width of the datagrid control.
2102 'If the listbox control extends past the datagrid control, then do not show the listbox control.
2103 Standard UserControl object Resize event.
2104 Standard DataGrid control ColResize event.
2200 '******************* Private Function CreateDG_Resize ***************
2201 'Resize the datagrid control to the UserControl object when we are in Visual Basic Design Time mode.
2300 '******************* Private Function CreateSR_AddRecord ***************
2301 'Add a blank record to the DataSource RecordSet class.
2302 'Update the Foreign Key combobox control with the correct value.
2303 Adds a new record to the RecordSet class.
2400 '******************* Private Function CreateSR_DeleteRecord ***************
2401 'Delete the current DataSource record.
2402 Deletes a record from the RecordSet class.
2500 '******************* Private Function CreateCB_ComboBoxClick ***************
2501 'Raise the combobox control Click event with the Primary Key field values.
2600 '******************* Private Function CreateCB_InitSub Cont. ****************
2601 'The DataSource class was not passed as a parameter. Now create a new DataSource class.
2602 'The DataSource was passed as a parameter, so use the existing DataSource class.
2603 'If there is a DataSouce class error, exit the function.
2604 'By default, the first field with a textbox control will be displayed\n 'in the listbox control. If you would like to have another field displayed,\n 'in the combobox control comment out the first 'If..End If'\n 'textbox control field below and uncomment the desired\n ' 'If..End If' to display.
2605 'By default, the first field with a textbox control will be displayed\n 'in the combobox control. If you would like to have another field displayed,\n 'in the combobox control comment out the first 'If..End If'\n 'textbox control field below and uncomment the desired\n ' 'If..End If' to display.
2608 'Return the DataSource class.
2609 'Clear the control name from the combobox control.
2610 'Resize the combobox control to the UserControl object.
2611 'Select the first record in the combobox control.
2700 '******************* Private Function CreateDG_ReadProperties ****************
2701 'Set ManualInitialize property to false to initialize the datagrid control automatically.
2702 'Set GridEditable property to true to allow editing of the datagrid control and activate Foreign Key listbox controls.
2703 'Set the Select command parameter property value.
2704 'Set the Foreign Key command parameter property value.
2705 'If parameter values were read then initialize the DataSource class.
2800 '******************* Private Function CreateSR_ComboClicks ****************
2801 'Update the DataSource class Foreign Key properties.
2802 Standard combobox control Click event.
2900 '******************* Private Function CreateSR_MoveToPK ****************
2901 'Run the DataSource class MoveToPK method with the Primary Key values.
3000 '******************* Private Function CreateDG_InitSub Cont. ****************
3001 'If there is an error, exit the function.
3002 'Show both scroll bars for the control.
3003 'Since the listbox control height cannot resize, force the same for the datagrid control RowHeight property.
3004 'Set the RowHeight property to make the listbox controls appear in the row of the datagrid control.
3005 'Format the Boolean columns of the datagrid control
3006 'Return the Class object.
3007 'Resize the datagrid control to the UserControl object when we are in the Visual Basic Run Time mode.
3100 '******************* Private Function CreateDG_Grid_RowColChange Cont. ****************
3101 'Fill the listbox control, set the control to the value of the Foreign Key and show it.
3200 '******************* Private Function CreateDG_GetSurKeySubs Cont. ****************
3201 'Return the Surrogate Key value.
3203 'Move the Foreign Key RecordSet class to the Surrogate Key value(the AbsolutePosition property.)
3204 'Set the DataSource class property to the value of the Foreign Key RecordSet class field.
3300 '******************* Private Function CreateDG_CmbEditClick Cont. ****************
3301 'Run the UpdateFK method to update the DataSource class Foreign Key Property value(s).
3302 'Update the datagrid control's cell with the listbox control List value.
3400 '******************* Private Sub LoadVBInstanceInfo ****************
3401 Error retrieving Data Environment information for the existing class module:
3500 '******************* General Declarations ****************
3501 You do not have the proper license to load the Visual Basic 98 Application Wizard! You must have the Learning, Professional, or Enterprise edition of Visual Basic installed!
3502 The Visual Basic 98 Application Wizard requires a version 6.0 or newer version of Visual Basic.
